<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in._he</name>
<id>-1</id>
<cardCount>16</cardCount>
<cardID>31032</cardID>
<listID>3785</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>480</width>
<height>304</height>
</cardSize>
<script>on doMenu szif sz = "Quit HyperCard" thenlock screenset cursor to watchglobal gszMainStack -- main stack sets itself to thisgo to stack gszMainStackFileQuitelsepass doMenuend ifend doMenuon FileQuit -- repetition from main stack scriptdoMenu "Quit HyperCard"end FileQuiton openStackglobal gszMainStack -- main stack sets itself to thisif gszMainStack Γëá empty thenstart using stack gszMainStackend ifend openStackon closeStackglobal gszMainStack -- main stack sets itself to thisif gszMainStack Γëá empty thenstop using stack gszMainStackend ifend closeStackon Watchset cursor to watchend Watchon HelpContentsWatchgo cd 1 of bg "Contents"end HelpContentson HelpMenusWatchgo cd "RomMaker Menus"end HelpMenuson HelpIndexanswer "Sorry, Help Index isn't implemented yet."end HelpIndexon GoFromContentsWatchdo "select"&&(the clickLine) -- flash the clicked textdo "put"&&(the clickLine)&&"into sz"repeat while char 1 of sz = " " -- delete leading spacesdelete char 1 of szend repeatlock screengo cd sz of bg "topic"end GoFromContentson HelpFindglobal gszFindask "Find what text?" with gszFindput it into gszFindif gszFind Γëá empty thenHelpFindAgainend ifend HelpFindon HelpFindAgainglobal gszFindif gszFind Γëá empty thenfind whole gszFindif the foundChunk is empty thenanswer "Help does not contain the text ""e&gszFind"e&"."end ifelseHelpFindend ifend HelpFindAgainon PrintPage--print bg fld "topic" -- hack; how to get these on the same page?--print bg fld "number"print bg fld "text"end PrintPageon commandKeyDown keyif key = "f" then HelpFindelse if key = "a" or key = "g" then HelpFindAgainelse pass commandKeyDownend commandKeyDown-- main stack might reprogram arrow keys, so we have our ownon arrowKey keyif key = right then go next cdif key = left then go prev cdend arrowKey-------------- for developers only! ----------------------------------on Releaseset the cantModify of this stack to falseif the cantModify of this stack thenanswer "Can't unlock the stack!"elsepush cdgo bg "contents"set the lockText of bg fld "contents" to truego bg "topic"set the lockText of bg fld "text" to truepop cddoMenu "Compact Stack"set the cantModify of this stack to trueend ifend Release</script>
